home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 125 / Computer Shopper CD-ROM Issue 125 (1998-07)(Dennis Publishing).iso / EuroPhys / Database / Electric / Topic2 / Script / ID716.Scn < prev    next >
Encoding:
Text File  |  1997-07-31  |  2.2 KB  |  96 lines

  1. ┘'<><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><>
  2. '<> Orginal author:Neil
  3. '<> Date created:Tuesday, Jul 15 1997
  4. '<> File name:database\electric\topic2\script\ID716.Scn
  5. '<><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><>
  6. '<> Author of last modification:
  7. '<> Date of last Modification:
  8. '<><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><>
  9.  
  10.  
  11.  
  12.  
  13.  
  14. '@Disable Forward
  15.  
  16.  
  17. @At 151,13
  18. @AtGraphic 288,7
  19. @picture 2-3-1a.bmp
  20. @At 248,75
  21. #cr#b6.25╫10#f518#f1 electrons = 1 coulomb#b
  22.  
  23. @At 229,11
  24. #bCharge is measured in coulombs, C#b.
  25.  
  26. @PlaySoundFile Abb20a01.wav
  27.  
  28. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  29. @wait 1
  30. @Animation FranklinGetGlasses,FranklinMoveGlasses,FranklinLeaveGlasses
  31. @Wait 1
  32. @Animation FranklinLightning
  33.  
  34. @Waitforsoundtofinish
  35.  
  36. @PlaySoundFile Abb20a02.wav
  37. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  38. @Waitforsoundtofinish
  39.  
  40. @prompt
  41.  
  42.  
  43. @PlaySoundFile Abb20a03.wav
  44.  
  45. @AtGraphic 198,99
  46. @picture coulback.bmp
  47. @AtGraphic 212,107
  48. @createanimate charge,2-3-1-,0,4,200,false
  49. @AtGraphic 348,206
  50. @createanimate seconds,amc,0,10,80,false
  51. @startanimate charge,true
  52. @startanimate seconds,true
  53.  
  54. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  55. @At 155,267
  56. Current = the amount of charge passing a point in 1 second.
  57.  
  58. @wait 2
  59. @At 192,292
  60. So:       #b1 Amp = 1 coulomb per second#b
  61. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  62.  
  63. @Wait 5
  64.  
  65. @startanimate charge,false
  66. @startanimate seconds,false
  67.  
  68.  
  69. @Prompt
  70.  
  71. @AtGraphic 128,312
  72. @Picture abb20a02.bmp
  73.  
  74. '@At 132,328
  75. '#<current = #>#uc#^harge#u            #b#<I =#> #^#uQ#u#b
  76. '#ttime  #b#t t#b
  77. @PlaySoundFile Abb20a04.wav
  78. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  79. @Waitforsoundtofinish
  80.  
  81.  
  82. @Prompt
  83.  
  84. '@At 370,334
  85. 'charge = current ╫ time       #bQ = It#b
  86. @AtGraphic 356,323
  87. @Picture abb20a03.bmp
  88.  
  89. @PlaySoundFile Abb20a05.wav
  90. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  91. @Waitforsoundtofinish
  92.  
  93. @Waitforsoundtofinish
  94. @Enable Forward
  95. @At 365,370
  96. #b#crClick on Forward to move on.